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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL ad ea CORPORATION, MAYNARD. MASSACHUSETTS. 
L RIGHTS RESERVED. 


S SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND sor ice 
Y IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
LUSION OF THE ABOVE pith NOTICE. THIS SOFTWARE OR ANY OTHER 

oo NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITL E TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eORPORAT be NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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; s FACILITY: LANGUAGE INDEPENDENT SUPPORT 
; ; "ABSTRACT: 


This module contains the routine that converts floating 
numbers to packed with rounding. 


; ; VERSION: 1 
: ; HISTORY: 


; AUTHOR: 
Marty Jack, 14-Mar-1979 


; ; MODIFIED BY: 
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-SBTTL HISTORY ; Detailed Current Edit History 


Edit History for Version 1 of OTSCVTRFP 


-001 = Original. J 14-Mar-1979 

- = Make external refences explicit. RKR 17-JULY-1979 

- - change all felerences to FORSCNV_OUT_E to COBSCNVOUT 
RKR 27-SEPT- 


“$08 = Cosmetic changes. RKR 18-OCT-79 
-005 = Change source name to OTS$ and retain old entry point name. PLL 21-Jan-82 
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2s 
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; MACROS: 
NONE 


= 


2¢ 


2¢ 


1000 ; »SBTTL DECLARATIONS 
R009 63 
d00¢ 3 ; INCLUDE FILES: 
it SDSCDEF 
100 
JUUU 3 
i ; EXTERNAL SYMBOLS: 
000¢ -DSABL GBL ; Prevent undeclared symbols from being 
2006 y ; automatically global 
000¢ 75 -EXTRN OTSSCNVOUT 3 E-format conversion 
000 6 -EXTRN LIBSSTOP ; Error halt 
0000 = * -EXTRN OTSS_FATINTERR ; Fatal internal error code 
inf 
1000 0 
+++ ' 
5 


2s 


> PSECT DECLARATIONS: 
PSECT _OTSSCODE PIC, SHR, LONG, EXE, NOWRT,- 


USR, CON, REL, LCL, RD 


CL 
SE 


; EQUATED SYMBOLS: 
; NONE 


SSSSFessce 
@ MEWN—OOR® 
Sete tee 


: OWN STORAGE: 
: NONE 


1 4 be " ! 
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-SBTTL OTSSCVTRFP_RO 


* FUNCTIONAL DESCRIPTION: 
Converts a floating number to packed with rounding. 
CALLING SEQUENCE: 
JSB OTSSCVTRFP_RO (scale.rl.v, src.rf.r, dstlen.rl.v, dst.wp.r) 
Arguments are passed in R6, R7, RB and RI. 
INPUT PARAMETERS: 

SCALE.rl.v The power of ten by which the internal 
representation of the source must be 
multiplied to scale the same as the 
internal representation of the dest. 

OSTLENceL.v the ae of Folie te tke destination 

IMPLICIT INPUTS: 
ALL of the trap bits in the PSL are assumed off. 
OUTPUT PARAMETERS: 
DST.wp.r The place to store the converted number 
IMPLICIT OUTPUTS: 
NONE 
FUNCTION VALUE: 
1 = SUCCESS, 0 = FAILURE 
SIDE EFFECTS: 
Destroys registers RO through R9. 


= 
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OTSSCVTRFP_R9:: 

COBSCVTRFP_RY:: 
SUBL2 #8 SP 3 Allocate temp space 
CVTFD «= (R7$,, (SP) : Get input number 

+ Make a descriptor for the temporary string. 

g PUSHAB 8(SP) ; Address = space reserved 
MOVB SOSCEK CLASS _§.~( $0) ; Class = static 
MOVB apse K_DIYPE_T,-(SP) ; Data type = ASCII string 
MOVW #38,-(SP) 3 Length in bytes 
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OA 
00000000 ' GF 
29 


; 
2A as 


12 “g 10 AE 
6 iF 12AE IF 
6— 1F 56 


69 58 05 
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"BF 
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00000000 
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13 ; Call OTSSCNVOUT. 
. PUSHL #31 

PUSHAB 
PUSHAB 


cats ise $5 OTSScNVOUT 
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: a its in {rection 

: ut string coscripter 
: ue er to conve 

3: Call conversian cousins 
3; Should never fail 


: Convert the pe and correct for scale factor. 


1 

1 

1 

1 

1 

1 

! 

1 CVTSP ai #2,(SP) 3; Make ached exponent 

1 HA 3; Make wo rq exponent 
! s age) 1,R6 . correct. or fraction size and scale 
4 ; Convert the fraction to packed. 

173° MOVB (sp) 18(SP) ; Move sign over "'."' 

1% CVTSP 8(se) #31, (SP) ; Make packed fraction 

17 ASHP ii, (SPS ,#5.RB, (RO) ; Scale to destination 
176 ; (also clears RO) 

1 BVS 10$ 3; Branch if overflowed 
178 INCL R : Indicate success, RO = 1 
189 10$ apete #56,SP ; Delete stack temps 

181 ; 

} § ‘ Come here on failure of OTSSCNVOUT. This should never happen. 
184 20$:  PUSHL #OTS$_FATINTERR ; OTS fatal error message 
! 5 : CALLS #1,G*CIBSSTOP : Signal and don't return 
1 § ‘ END 


Es 

OTSSCVTRFP_RO Convert Rounded Floating to Packed 16°$ P=! 4 00: AX/VMS Macro v04-00 Page 
ymbol table ° g-S66 198 90:45: ig LIBRTL.S REI TSCVTRFP.MAR; 1 ° (2) 
COBSCVTRFP_RO RG 02 
DSC CLASS _ 
DSCSK-DTYPE_ © 
LIBSSTOP eeeeeeee x 
OTSSCNVOUT ghererre 
OTSSCVTRFP_RO 00000000 RG 3 
OTSS_FATINTERR eeeerere 

pew env ec wwe creecen} 

: Psect synopsis ! 

dooce r sce sen woscaes $+ 
PSECT name Allocation PSECT No. Attributes 
> SB « 8 a 9 ( -) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABS ) ( 1.) NOPIC USR CON ABS LCL NOS EXE RD WRT NOVEC BYTE 
-OTSSCODE A -)» 02¢ 2.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 

¢oeereeanamaewaw acon oeroceae$ 
; Performance indicators ; 
Phase Page faults CPU Time Elapsed Time 
Initialization 5 :00:00. g :00:03.4 
Command processing 1 :00:00. :00:02.7 
Synbol table sort 0000.11 +00:0069 
able sor :00:00. :00:00. 

Pas 4 :00:00.35 :00: $5 
Symbol table output :00:00.01 :00:00.01 
Psect synopsis output :00:00.01 :00:00.01 
Cross-reference output :00:00.00 :00:00. 
Assembler run totals 34 :00:01.91 :00:14.6 


ibs working . t limit wes 1930 popes. 
392 bytes ‘ pages) of virtual memory were used to buffer the intermediate eer 
re were pages of symbol table space os locas dt hold 136 non-local gnd ¢ 

187 source t nes were read in Pass 1, produci ng! object records in Pass 2. 

8 pages of virtual memory were used to define 7 macros. 


Local symbols. 


foam em moore nema nae momow } 


! Macro library statistics ! 


ese eon msc en econ ere ne eonewre$ 


Macro Library name Macros defined 
-$255$DUA28: CSYSLIBISTARLET.MLB;2 4 
190 GETS were required to define 4 macros. 


There were no errors, warnings or information messages. 
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